home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / toolpack.000 / toolpack / toolpack1.2 / scriptsource / polx.s < prev    next >
Encoding:
Text File  |  1993-10-04  |  1.4 KB  |  53 lines
  1. #! /bin/csh
  2. #  polx is a csh script to edit a file of Polish options using ISTPO.
  3. #
  4. #
  5. #  Invocation:
  6. #
  7. #  polx Polish_option_file
  8. #
  9. #  Check command line validity.
  10. if ( $#argv < 1 ) then
  11. TOOLPACKPATH/toolpack1.2/util/echoerr \
  12. Invocation:
  13. TOOLPACKPATH/toolpack1.2/util/echoerr ""
  14. TOOLPACKPATH/toolpack1.2/util/echoerr \
  15. polx Polish_option_file
  16. TOOLPACKPATH/toolpack1.2/util/echoerr ""
  17. TOOLPACKPATH/toolpack1.2/util/echoerr \
  18. Polish_option_file is a file of formatting options used by tools
  19. TOOLPACKPATH/toolpack1.2/util/echoerr \
  20. that reconstruct Fortran text from a token/comment stream.  If
  21. TOOLPACKPATH/toolpack1.2/util/echoerr \
  22. the file exists, it will be read into the editor.  If it does not
  23. TOOLPACKPATH/toolpack1.2/util/echoerr \
  24. exist, it will be created with default options and read into the editor.
  25. TOOLPACKPATH/toolpack1.2/util/echoerr ""
  26.    exit
  27. endif
  28. #
  29. #  Create PFS.  If PFS already exists, exit with an advisory message.
  30. #
  31. if ( -e _.TOOLPACK == 0 ) then
  32.    mkdir _.TOOLPACK
  33. else
  34. TOOLPACKPATH/toolpack1.2/util/echoerr \
  35. Toolpack-created directory '"_.TOOLPACK"' exists. \
  36. Remove with script '"discard"'.
  37.    exit
  38. endif
  39. #  Option file name.
  40. set opts = $1
  41. #  Create the interprocess file IST.CMD and append parameters for ISTPO.
  42. TOOLPACKPATH/toolpack1.2/util/mkipf \
  43. \#$opts
  44. #
  45. #  Invoke ISTPO.
  46. #
  47. TOOLPACKPATH/toolpack1.2/util/echoerr \
  48. Entering Polish Options Editor
  49. TOOLPACKPATH/toolpack1.2/exec/istpo.u
  50. #
  51. /bin/rm -r _.TOOLPACK
  52. #
  53.